home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISKSEARCH.ARC / SRCH DSK 6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  48 lines
  1. 10 ;SRCH DSK 6
  2. 80 G JSR GET;ROUTINE FOR KEYBOARD ENTRY
  3. 90 BEQ G
  4. 91 CMP #$0D;RETURN = END OF SEARCH STRING
  5. 92 BNE T
  6. 93 RTS
  7. 94 ;
  8. 95 ;CONVERT ASCII TO HEX
  9. 96 ;
  10. 100 T JSR PRINT;KEY STOKE IN ASCII PRINT IT
  11. 105 JSR TEN;CONVERT FIRST KEYSTROKE
  12. 110 G1 JSR GET
  13. 111 BEQ G1
  14. 120 JSR PRINT
  15. 125 JSR ONE;CONVERT 2ND KEYSTROKE
  16. 130 LDX X
  17. 140 STA SRCH,X;PUT SEARCH STRING INTO MEMORY
  18. 150 INX
  19. 160 STX X
  20. 161 INC STRING;VARIABLE HOW LONG SEARCH STRING
  21. 165 JMP G;GET ANOTHER BYTE
  22. 170 TEN CMP #$41;# GREATER THAN 9 (A B ETC)
  23. 180 BCC NUM
  24. 184 ;EXAMPLE #$B5
  25. 185 ;HOLDS THE B (#$42) IN #$B5
  26. 186 ;                 01000010
  27. 190 SEC
  28. 200 SBC #$07;#$3B     00111011
  29. 210 NUM AND #$0F;         00001111
  30. 215 ;EQUALS                             00001011
  31. 220 ASL;              00010110
  32. 225 ASL;              00101100
  33. 226 ASL;              01011000
  34. 227 ASL;              10110000 = #$B0
  35. 230 STA TEMP
  36. 240 RTS
  37. 250 ONE CMP #$41;THE #$05 IN #$B5
  38. 260 BCC NUM1
  39. 270 SEC
  40. 280 SBC #$07
  41. 285 ;EXAMPLE          00000101
  42. 290 NUM1 AND #$0F;    00001111
  43. 295 ;EQUALS #$05      00000101
  44. 300 CLC
  45. 310 ADC TEMP;#$B0 + #$05 = #$B5
  46. 320 RTS
  47. 380 .FILE SRCH DSK 7
  48.